Fix composition-function-table for Arabic and Syriac

* lisp/language/misc-lang.el (composition-function-table): Fix
entries for Arabic and Syriac.

diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index b56d31f6e16410bdd93458cc8aab613aa417d4f3..9815421b7f08f43d3100116ab4bd93690d287be9 100644 (file)
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -77,9 +77,9 @@ and Italian.")))
 
 (set-char-table-range
  composition-function-table
- '(#x600 . #x6FF)
- (list ["\u200D?[\u0600-\u074F]+[\u200D\u200C]*[\u0600-\u074F]+\u200D?"
-       0 font-shape-gstring]))
+ '(#x600 . #x74F)
+ (list ["[\u0600-\u074F\u200C\u200D]+" 0 'font-shape-gstring]
+       ["[\u200C\u200D][\u0600-\u074F\u200C\u200D]+" 1 'font-shape-gstring]))
 
 (provide 'misc-lang)